#Exercicio 2

#Biomassa de rvores 

#Modelo 1
#b1 = e^{-1.7953} d^2.2974

    e=2.71828
    d=15
    h=12
    b=(e^-1.7953)*(d^2.2974)
    b # igual a 83.61105

#Modelo 2 
#b2 = \ -2.6464 + 1.9960ln(d) + 0.7558 ln( h) 

    h=12
    lna=log( d)
    lnb=log( h)
    a=lna*1.9960
    b=lnb*0.75581
    ln2=-2.6464+a+b
    ln2 # igual a 4.636985

#Sequencias #a a a a a

a="a"

rep(a,5)

#2. 1 1 1 2 2 2 3 3 3

rep(1:3,each=3)

#3. 1 1 1 2 2 3c

c(rep(1,3),rep(2,2),rep(3,1))

#4.1 2 3 4 5 4 3 2 1

c(seq(1:5),seq(4,1))

#5.Nmeros mpares de 1 a 99

seq(from=1, to=99, by=2)

# Conta de luz

help(diff)

#diff = funo de diferena

contas= c(9839,10149,10486, 10746, 11264, 11684, 12082, 12599, 13004 ,13350, 13717, 14052) 

#mx e min

summary(contas)

#Variancia

var(contas)

help(var)

#Area Basal

dap=13.5

#usar pi r^2/2

pi

r=dap/2

area=(pi*(r^2))/2

area

#tres fustes

raio=c(7,9,12)

area=(pi*(raio^2))/2

area

#Variencia na unha !

pesos =c(78.4, 79.8, 76.0, 75.3, 77.4, 78.6, 77.9, 78.8, 79.2, 75.2, 75.0, 79.4)

#variancia=(soma (xi-X)^2)/(n-1)

X= median(pesos)
X

y= (X-pesos)^2
y
z=sum(y)
z

var_unha= z/11

#Comparando

var_unha

var(pesos)

#qse =/ Onde errei ?

desvio=sqrt(var_unha)

desvio

#Teste t- bilateral

q=2.2

gl=19
gl
help(qt)# Socorro R !
 
# pt(q, df, ncp, lower.tail = TRUE, log.p = FALSE) 
prob=pt(q,gl,lower.tail=FALSE)
prob*2  # menor que 0.05 - amostras no so significativamente diferentes- aceitamos H0

# Parte 2
gl2=1.9
prob.p2=pt(q,gl2,lower.tail=FALSE)
prob.p2*2 # Amostras diferentes -HO rejeitada 